MODULE Proced2;

FROM Terminal IMPORT WriteString, WriteInt, WriteCard;

PROCEDURE PrintDataOut(Puppy : INTEGER) : INTEGER;
BEGIN
   WriteString("The value of Puppy is     ");
   WriteInt(Puppy,5);
   RETURN 10;
END PrintDataOut;

PROCEDURE PrintDataOut(Puppy : CHAR) : INTEGER;
BEGIN
   WriteString("The value of Puppy is     ");
   WriteCard(Puppy,5);
   RETURN 10;
END PrintDataOut;

PROCEDURE PrintDataOut(Puppy : INTEGER) : CHAR;
BEGIN
   WriteString("The value of Puppy is     ");
   WriteInt(Puppy,5);
   RETURN 10;
END PrintDataOut;
    
END Proced2.